home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / factory.src < prev    next >
Text File  |  1991-09-05  |  11KB  |  187 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ The Factory, an animation by Doug Cannon
  3. DIR
  4.   SETUP
  5.     \<<
  6.     F1 ST\-> 'F1' STO
  7.     F2 ST\-> 'F2' STO
  8.     F3 ST\-> 'F3' STO
  9.     F4 ST\-> 'F4' STO
  10.     F5 ST\-> 'F5' STO
  11.     F6 ST\-> 'F6' STO
  12.     F7 ST\-> 'F7' STO
  13.     F8 ST\-> 'F8' STO
  14.     { SETUP ST\-> } PURGE
  15.     \>>
  16.   ST\->
  17.     \<< \-> S
  18.       \<< "" 1 S SIZE
  19.         FOR N S N GET +
  20.         NEXT STR\->
  21.       \>>
  22.     \>>
  23.   DOIT
  24.     \<<
  25.     F1 PICT STO { # 0d # 0d } PVIEW
  26.     PICT { # 0d # 35d } "THE FACTORY" 1 \->GROB REPL
  27.     PICT { # 0d # 41d } "BY: DOUGLAS R. CANNON" 1 \->GROB REPL
  28.     PICT { # 0d # 47d } "ORIGINALLY WRITTEN FOR THE HP28s" 1 \->GROB REPL
  29.     PICT { # 0d # 53d } "IN AUGUST 1989" 1 \->GROB REPL
  30.       DO
  31.     PICT { # 0d # 0d } F1 REPL
  32.     PICT { # 0d # 0d } F2 REPL
  33.     PICT { # 0d # 0d } F3 REPL
  34.     PICT { # 0d # 0d } F4 REPL
  35.     PICT { # 0d # 0d } F5 REPL
  36.     PICT { # 0d # 0d } F6 REPL
  37.     PICT { # 0d # 0d } F7 REPL
  38.     PICT { # 0d # 0d } F8 REPL
  39.       UNTIL KEY
  40.       END DROP
  41.     \>>
  42.   F1 {
  43. "GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
  44. "FF000000000000F3F3F3F3FBBAA20000000000FFFF10000000D2D2D2D2DE5553006003"
  45. "03030000EFF70000D2D2D2D2DEAAF708F1878787030300081000D2D2D2D2D75D0408FD"
  46. "878787878703002000F3F3F3F3FFFAF700F2030303878787032000FFFFFFFFFF1FF700"
  47. "008FFFF0030387872000CCCCCCCCCC2C04000000000FFFF103872000000000000C4C04"
  48. "0002000000000EFF732000000000000C48F7000C000000008FFF702000CCCCCCCCCC28"
  49. "F70C000000FFFF7000002000FFFFFFFFFF18040F308FFF000000606020000000000000"
  50. "08040F306000006060F0F02000000000000008F70E10706060F0F0F0F0200000000000"
  51. "0008F70000F0F0F0F0F06068100000000000000C040000F0F0F06068FFF70000000000"
  52. "00000C04000070606FFFF70000000000000000000FF70000EFFFF0000000000000FFFF"
  53. "FFFFFFFAF7000000000000000000000000000000007D04000000000000000000000018"
  54. "18181818BA040000000000000000000000242424242C5DF7000000FFFFFFFFFFFFF700"
  55. "7E7E7E7E7EAAA2000008C7830000000008004242424247555300081CEFC7830000008B"
  56. "107E7E7E7EFBAAA18FFF3C6CEEC7830083CF10FFFFFFFFFFFFF0CC0D7CEE6CEEC783C7"
  57. "EE10CCCCCCCCC02760FF0CBCC7EE6CEEC7EE6C10000000000E57EFEF0CBC83C7EE6CEE"
  58. "6CEE10000000000E5260CC014C0083C7EF6CEFCF10CCCCCCCCC02200BFFF38000083C7"
  59. "FFD78B00FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  60.   F2 {
  61. "GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
  62. "FF000000000000E7E7E7E7EFBAA200C0000000FFFF10000000A5A5A5A5AD555300F306"
  63. "06000000EFF70000A5A5A5A5AFAAF700F30F0F06060600081000A5A5A5A5A75D0400E1"
  64. "0F0F0F0F0F06002000E7E7E7E7EFFA04000C06060F0F0F0F002000FFFFFFFFFF1FF700"
  65. "028FFFF606060F06200099999999993CF7000000000FFFF1060F2000000000000C4C04"
  66. "0000000000000EFF7F2000000000000C48040C02000000008FFF762000666666666628"
  67. "F70F3C0000FFFF7000002000FFFFFFFFFF18F70F308FFF000000303020000000000000"
  68. "08040E1000003030387870200000000000000804000810387878787870200000000000"
  69. "0008F7000C38787878703038100000000000000CF7000C7870303038FFF70000000000"
  70. "00000C04000870300FFFF70000000000000000000F040000BFFFF0000000000000FFFF"
  71. "FFFFFFFAF7000000000000000000000000000000007DF700000000000000000000000C"
  72. "0C0C0C0CBA040000000000000000000000121212121E5DF7000000FFFFFFFFFFFFF700"
  73. "3F3F3F3F3FAAA20008180700000000000F002121212127555300081C9F07000000078F"
  74. "103F3F3F3FBBAAA18FFF3CDD9F0700078FCD10FFFFFFFFFFFFF0C81D7CD8DD9F078FCD"
  75. "D81066666666603760FF1CBCCDD8DD9FCDD8DD10000000000C57EFEF1CBC8FCDD8DDD8"
  76. "DD9F10000000000E4260C8114C078FCFD8DF9F0F1099999999932200BFFF3800078FEF"
  77. "BF070800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  78.   F3 {
  79. "GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100818FFF"
  80. "FF000000000000CFCFCFCFCFBAA200C3000000FFFF100000004B4B4B4B4F555300C70C"
  81. "0C0C0000EFF700004B4B4B4B4FAAF700870E1E1E1C00000810004B4B4B4B475DF70003"
  82. "0E1E1E1E1C0C002000CFCFCFCFCFFA0400000C0C0C0E1E1E102000FFFFFFFFFF1F0400"
  83. "0C8FFFF00C0E1E10200033333333393CF7000200000FFFFD0C0C2000000000000C4CF7"
  84. "0C00000000000EFF7E3000000000000648040F30000000008FFF7E3000333333333328"
  85. "040F320000FFFF70000C2000FFFFFFFFFF18F70E1C8FFF000008181020000000000000"
  86. "08F70000000008181C3C30200000000000000804000608181C3C3C3C30200000000000"
  87. "000804000F0C3C3C3C381818100000000000000CF7000F1C3C381818FFF70000000000"
  88. "00000CF7000E18181FFFF70000000000000000000F04000C8FFFF0000000000000FFFF"
  89. "FFFFFFFA04000000000000000000000000000000007DF7000000000000000000000006"
  90. "0606060EBAF70000000000000000000000090909090D5DF7000810FFFFFFFFFFFFF700"
  91. "9F9F9F9F9FAAA200081800000000000E0F009090909097555300081C1E0000000E0F9F"
  92. "109F9F9F9F9BAAA18FFF3C3F1E000E0F9BB910FFFFFFFFFFFFF0C03D7CBB3F1E0F9BB1"
  93. "BB10333333333B3760FF3CBCB1BB3F9BB1BB3F10000000000C47EFEF3CBC9BB1BBB1BB"
  94. "3F1E1000000000064260C0314C0F9FB1BF3F1E081033333333332200BFFF380E0FDF7F"
  95. "1E000800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  96.   F4 {
  97. "GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100068FFF"
  98. "FF0000000000009F9F9F9F9FBAA2000F000000FFFF10000000969696969E5553000F18"
  99. "18100000EFF70000969696969EAAF7000E1C3C3818181008100096969696975DF7000C"
  100. "0C3C3C3C3C381020009F9F9F9F9FFAF7000008181C3C3C3C302000FFFFFFFFFF1F0400"
  101. "008FFFF818181C30200066666666603C040C0C00000FFFF108102000000000000C5CF7"
  102. "0F32000000000EFF7C2000000000000E48F70F30000000008FFF7E3000999999999328"
  103. "040E100000FFFF70000E3000FFFFFFFFFF180400028FFF00000C0C0C20000000000000"
  104. "08F7000C00000C0C0E1E102000000000000008F700810C0C0E1E1E1E10200000000000"
  105. "00080400C30E1E1E1E1C0C08100000000000000C0400C70E1E1C0C08FFF70000000000"
  106. "00000CF700870C0C0FFFF70000000000000000000FF700038FFFF0000000000000FFFF"
  107. "FFFFFFFA04000000000000000000000000000000007D04000000000000000000000003"
  108. "0303030BBAF70008100000000000000000848484848C5DF7000810FFFFFFFFFFFFF700"
  109. "CFCFCFCFCFAAA2000818000000000C1E3C004848484847555300081C1000000C1E3F7E"
  110. "10CFCFCFCFCBAAA18FFF3C3C100C1E37736F10FFFFFFFFFFFFF0C06D7C7E3C1E377367"
  111. "7B1099999999993760FF7CBC677E3773677E3F10000000000C47EFEF7CBC736773677E"
  112. "3C1E10000000000C4260C0614C3F736F7E3C100C1066666666662200BFFF381EBFFE3C"
  113. "10000800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  114.   F5 {
  115. "GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
  116. "FF0000000000003F3F3F3F3FBAA20008100000FFFF100000002D2D2D2D2D5553000C30"
  117. "30300000EFF700002D2D2D2D2FAAF7000C7878703030000810002D2D2D2D275D040008"
  118. "7878787870303020003F3F3F3FBFFAF70000303038787878702000FFFFFFFFFF1FF70C"
  119. "008FFFF0303878702000CCCCCCCCC02C040F3000000FFFF130302000000000000E5C04"
  120. "0F3C000000000EFF702000000000000E58F70E12000000008FFF762000CCCCCCCCC028"
  121. "F700000000FFFF70000F2000FFFFFFFFFF180400008FFF000006060F20000000000000"
  122. "08040002000006060F0F062000000000000008F7000C06060F0F0F0F00200000000000"
  123. "0008F700C00F0F0F0F060608100000000000000C0400F30F0F060608FFF70000000000"
  124. "00000C0400F306060FFFF70000000000000000000FF700E18FFFF0000000000000FFFF"
  125. "FFFFFFFAF7000000000000000000000000000000007D04000810000000000000000081"
  126. "81818189BA040008100000000000000000424242424E5DF7000810FFFFFFFFFFFFF700"
  127. "E7E7E7E7EFAAA2000818000000083C7838002424242427555300081C0000083C7EFC78"
  128. "10E7E7E7E7EBAAA18FFF3C30083C7EE6CEEC10FFFFFFFFFFFFF0C0CD7C783C7EE6CEE6"
  129. "CE10CCCCCCCCCC2760FFFCBCEC7EE6CEEC7EEE10000000000C47EFEFFCBCCEE6CEEC78"
  130. "3C7E10000000000C4260C0C14CF6CEFC7830083C10CCCCCCCCCC2200BFFF387FFD7830"
  131. "00000800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  132.   F6 {
  133. "GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
  134. "FF0000000000007E7E7E7E7EBAA20000600000FFFF100000005A5A5A5A5E5553000070"
  135. "60600000EFF700005A5A5A5A5EAAF70000F0F0F06060000810005A5A5A5A575D040000"
  136. "F0F0F0F0F0606020007E7E7E7EFFFA040C00706060F0F0F0F02000FFFFFFFFFF1FF70F"
  137. "30EFFFF06060F0F0200099999999932CF70F3000000FFFF160602000000000000E4C04"
  138. "0E10000000000EFF702000000000000C5804000C000000008FFF702000666666666038"
  139. "F700020000FFFF7000032000FFFFFFFFFF18F700008FFF000000038720000000000000"
  140. "0804000000000303038787200000000000000804006203038787878703200000000000"
  141. "0008F708FD87878787870308100000000000000CF708F1878703030BFFF70000000000"
  142. "00000C0400F003030FFFF70000000000000000000F0400008FFFF0000000000000FFFF"
  143. "FFFFFFFAF7000000000000000000000000000000007DF70000000000000000000000C0"
  144. "C0C0C0C8BA040008100000000000000000212121212D5DF7000810FFFFFFFFFFFFF700"
  145. "F3F3F3F3FFAAA200081800000078F07008001212121217555300081C000078FCF9F078"
  146. "10F3F3F3F3FBAAA18FFF3C0078FCDD8DD9F810FFFFFFFFFFFFF0C06D7C78FCDD8DDD8D"
  147. "D91066666666662760FF7CBCFCDD8DD9FCDD8D10000000000C47EFEF7CBCDD8DD9F078"
  148. "FCDD10000000000C4260C0614C8DF9F0700078FC1099999999993200BFFF38FBF07000"
  149. "00007800FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  150.   F7 {
  151. "GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
  152. "FF000000000000FCFCFCFCFCBAA20000000000FFFF10000000B4B4B4B4BC55530000F0"
  153. "C0C00000EFF70000B4B4B4B4BEAAF70008E1E1E1C0C000081000B4B4B4B4B75DF70810"
  154. "E1E1E1E1E1C0C02000FCFCFCFCFFFA040E70C0C0C0E1E1E1E12000FFFFFFFFFF1F040E"
  155. "788FFFF0C0C0E1E1200033333333332CF70C3030000FFFF1C0C0200000000000064CF7"
  156. "0000000000000EFF702000000000000C48040000000000008FFF702000333333333938"
  157. "0400081000FFFF7000002000FFFFFFFFFF18F700048FFF000081818120000000000000"
  158. "08F7003000008181C3C3C32000000000000008040CF08181C3C3C3C3C3200000000000"
  159. "0008040CF4C3C3C3C3818189100000000000000CF70878D3C3818108FFF70000000000"
  160. "00000CF7000081810FFFF70000000000000000000F0400008FFFF0000000000000FFFF"
  161. "FFFFFFFA04000000000000000000000000000000007DF7000000000000000000000060"
  162. "60606068BAF70000000000000000000000909090909C5DF7000810FFFFFFFFFFFFF700"
  163. "F9F9F9F9FFAAA20008180000E0F1E00008000909090907555300081C00E0F9F3F1E008"
  164. "10F9F9F9F9FBAAA18FFF3CE0F9BB1BB3F1E810FFFFFFFFFFFFF0C03D7CF9BB1BBB1BB3"
  165. "F91033333333332760FF3CBCBB1BB3F9BB1BBB10000000000647EFEF3CBC1BB3F1E0F9"
  166. "BB1B10000000000C4260C0314CF3F1E000E0F9FB10333333333B3200BFFF38F1E00000"
  167. "00E0F900FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  168.   F8 {
  169. "GROB 137 32 FFFFFFFFFFFF700000000000000000000000000000000075D100008FFF"
  170. "FF000000000000F9F9F9F9F9BAA20000000000FFFF10000000696969696D5553000081"
  171. "81810000EFF70000696969696FAAF70038D3C3C381810008100069696969675DF70CF4"
  172. "C3C3C3C3C381812000F9F9F9F9FFFAF70CF0818181C3C3C3C32000FFFFFFFFFF1F0408"
  173. "708FFFF08181C3C3200066666666662C04000400000FFFF181812000000000000C4CF7"
  174. "0008100000000EFF702000000000000C48F70000000000008FFF702000999999999938"
  175. "0400000000FFFF7000C02000FFFFFFFFFF18040810BFFF000000C0E120000000000000"
  176. "08F70E780000C0C0C0E1E12000000000000008F70E70C0C0E1E1E1E1C0200000000000"
  177. "0008040C30E1E1E1E1E1C008100000000000000C040008E1E1C0C0C8FFF70000000000"
  178. "00000CF70000F0C00FFFF70000000000000000000FF700008FFFF0000000000000FFFF"
  179. "FFFFFFFA04000000000000000000000000000000007D04000000000000000000000030"
  180. "30303038BAF70000000000000000000000484848484C5DF7000000FFFFFFFFFFFFF700"
  181. "FCFCFCFCFEAAA200081800C1E3C1000008008484848487555300081CC1E3F7E3C10008"
  182. "10FCFCFCFCFBAAA18FFF3CE3773677E3C10810FFFFFFFFFFFFF0C81D7C7736773677E3"
  183. "C91099999999932760FF1CBC3677E3773677EB10000000000E47EFEF1CBC77E3C1E377"
  184. "367F10000000000C5260C8114CE3C100C1E3F73E1066666666663200BFFF38C1000000"
  185. "C1EBFF00FFFFFFFFFF1CFF030810FFFFFFFFFFFFF700" }
  186. END
  187.